﻿Class MainWindow 
  Private Sub PasswordBox1_PasswordChanged(
      ByVal sender As System.Object,
      ByVal e As System.Windows.RoutedEventArgs) _
    Handles PasswordBox1.PasswordChanged
    Me.TextBox1.Text = Me.PasswordBox1.Password
  End Sub
End Class
